unit MainFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, StdCtrls, ChooseModelFram, ConstraintFram,
  ParamsFram, RunFram, SingleCalcFram, jpeg, MultiCalcFram;

type
  TMainForm = class(TForm)
    pnlClient: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    FMultiFrame: TMultiCalcFrame;
    FSingleCalcFrame: TSingleCalcFrame;
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  FreeAndNil(FMultiFrame);
  FreeAndNil(FSingleCalcFrame);
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  FSingleCalcFrame := TSingleCalcFrame.Create(nil);
  FSingleCalcFrame.Parent := TabSheet6;
  FSingleCalcFrame.Align := alClient;

  FMultiFrame := TMultiCalcFrame.Create(nil);
  FMultiFrame.Parent := TabSheet1;
  FMultiFrame.Align := alClient;
end;

end.
